home *** CD-ROM | disk | FTP | other *** search
/ Amiga Packmags / NewsFlash - Issue 19 (1991-08)(UGA - NewsFlash UK)(Disk 1 of 2).zip / NewsFlash - Issue 19 (1991-08)(UGA - NewsFlash UK)(Disk 1 of 2).adf / sources / Print.S.pp / Print.S
Text File  |  1978-01-06  |  721b  |  38 lines
  1. ;This routine is just a simple routine to put a ascii string on the
  2. ;screen. This sort of information is always very interesting for
  3. ;new assembler programmers. If you have some tips just send them to
  4. ;Newsflash and we will publish them on future issues..
  5. ;
  6. ;Source written by C.Pauwe
  7. ;
  8.     OPENLIB=-408
  9.     OUTPUT=-60
  10.     WRITE=-48
  11.  
  12.     move.l    $04,A6
  13.     move.l    A0,Txtadr
  14.     move.w    D0,Lenght+2
  15.     lea    DOSLIB,A1
  16.     jsr    openlib(A6)
  17.     move.l    D0,A6
  18.     jsr    output(A6)
  19.     move.l    D0,Dest
  20.     move.l    D0,D1
  21.     move.l    Txtadr,D2
  22.     move.l    Lenght,D3    
  23.     subq.w    #1,D3
  24.     beq.s    RETURN
  25.     jsr    write(A6)
  26. RETURN:    move.l    Dest,D1
  27.     move.l    #Rchar,D2
  28.     move.w    #1,D3
  29.     jsr    write(A6)
  30.     clr    D0
  31.     rts
  32.  
  33. DEST:    DC.L    0
  34. Txtadr:    DC.L    0
  35. Lenght:    DC.L    0
  36. DOSLIB:    DC.B    "dos.library",0
  37. Rchar:    DC.B    10
  38.